object F_Interfilmes: TF_Interfilmes
  Left = 0
  Top = 0
  BorderStyle = bsToolWindow
  Caption = 'Interfilmes'
  ClientHeight = 795
  ClientWidth = 750
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object pgGeral: TPageControl
    Left = 8
    Top = 8
    Width = 737
    Height = 779
    ActivePage = TabSheet1
    TabOrder = 0
    OnChange = pgGeralChange
    object TabSheet1: TTabSheet
      Caption = 'Importa Intercine'
      object lbInf: TLabel
        Left = 8
        Top = 562
        Width = 3
        Height = 13
      end
      object DBGrid1: TDBGrid
        Left = 8
        Top = 41
        Width = 710
        Height = 480
        DataSource = dsInterfilmes
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'Tahoma'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'ID_FILME'
            Title.Caption = 'ID'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'GENERO'
            Title.Caption = 'G'#234'nero'
            Width = 80
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'TITULO'
            Title.Caption = 'T'#237'tulo'
            Width = 239
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'CLASSIFICACAO'
            Title.Caption = 'Classifica'#231#227'o'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'LANCAMENTO'
            Title.Caption = 'Lan'#231'amento'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'LINK'
            Title.Caption = 'Link'
            Visible = True
          end>
      end
      object edGenero: TComboValues
        Left = 8
        Top = 14
        Width = 161
        Height = 21
        Style = csDropDownList
        ItemIndex = 0
        TabOrder = 1
        Text = 'A'#231#227'o'
        Items.Strings = (
          'A'#231#227'o'
          'Anima'#231#227'o'
          'Aventura'
          'Cl'#225'ssico'
          'Com'#233'dia'
          'Document'#225'rio'
          'Drama'
          #201'pico'
          'Er'#243'tico'
          'Faroeste'
          'Fic'#231#227'o'
          'Guerra'
          'Infantil'
          'Musical'
          'Policial'
          'Romance'
          'Suspense'
          'Terror')
        Values.Strings = (
          '32'
          '11'
          '25'
          '2'
          '67'
          '15'
          '97'
          '2'
          '2'
          '8'
          '9'
          '4'
          '4'
          '5'
          '11'
          '18'
          '32'
          '24')
      end
      object btnProcessa: TButton
        Left = 584
        Top = 14
        Width = 134
        Height = 21
        Caption = 'PROCESSA'
        TabOrder = 2
        OnClick = btnProcessaClick
      end
      object mSource: TListBox
        Left = 24
        Top = 120
        Width = 673
        Height = 225
        ItemHeight = 13
        TabOrder = 3
        Visible = False
      end
      object pProgresso: TProgressBar
        Left = 8
        Top = 543
        Width = 710
        Height = 13
        TabOrder = 4
      end
      object pPagina: TProgressBar
        Left = 368
        Top = 527
        Width = 350
        Height = 13
        TabOrder = 5
      end
      object mLog: TMemo
        Left = 8
        Top = 592
        Width = 710
        Height = 150
        TabOrder = 6
      end
      object ckGenero: TCheckBox
        Left = 175
        Top = 16
        Width = 162
        Height = 17
        Caption = 'Processar todos os G'#234'neros'
        TabOrder = 7
        OnClick = ckGeneroClick
      end
      object pGenero: TProgressBar
        Left = 8
        Top = 527
        Width = 359
        Height = 13
        TabOrder = 8
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'Importa Sinopse'
      ImageIndex = 1
      object DBGrid2: TDBGrid
        Left = 8
        Top = 9
        Width = 710
        Height = 528
        DataSource = dsInterfilmes
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'Tahoma'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'TITULO'
            Title.Caption = 'T'#237'tulo'
            Width = 217
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'SINOPSE_CALC'
            Title.Caption = 'Sinopse'
            Width = 391
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'DURACAO'
            Title.Caption = 'Dura'#231#227'o'
            Visible = True
          end>
      end
      object btnSinopse: TBitBtn
        Left = 8
        Top = 543
        Width = 137
        Height = 25
        Caption = 'PROCESSA'
        TabOrder = 1
        OnClick = btnSinopseClick
      end
      object mLog2: TMemo
        Left = 8
        Top = 592
        Width = 710
        Height = 150
        TabOrder = 2
      end
      object pSinopse: TProgressBar
        Left = 151
        Top = 543
        Width = 567
        Height = 25
        TabOrder = 3
      end
    end
    object TabSheet3: TTabSheet
      Caption = 'Importa Miniaturas das Capas'
      ImageIndex = 2
      object imgMiniatura: TImage
        Left = 313
        Top = 375
        Width = 128
        Height = 162
        Stretch = True
      end
      object DBGrid3: TDBGrid
        Left = 8
        Top = 9
        Width = 710
        Height = 360
        DataSource = dsInterfilmes
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'Tahoma'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'TITULO'
            Title.Caption = 'T'#237'tulo'
            Width = 674
            Visible = True
          end>
      end
      object btnMiniatura: TBitBtn
        Left = 8
        Top = 543
        Width = 137
        Height = 25
        Caption = 'PROCESSA'
        TabOrder = 1
        OnClick = btnMiniaturaClick
      end
      object pMiniatura: TProgressBar
        Left = 151
        Top = 543
        Width = 567
        Height = 25
        TabOrder = 2
      end
      object mLog3: TMemo
        Left = 8
        Top = 592
        Width = 710
        Height = 150
        TabOrder = 3
      end
    end
  end
  object idHTTP: TIdHTTP
    AllowCookies = True
    ProxyParams.BasicAuthentication = False
    ProxyParams.ProxyPort = 0
    Request.ContentLength = -1
    Request.ContentRangeEnd = -1
    Request.ContentRangeStart = -1
    Request.ContentRangeInstanceLength = -1
    Request.Accept = 'text/html, */*'
    Request.BasicAuthentication = False
    Request.UserAgent = 'Mozilla/3.0 (compatible; Indy Library)'
    Request.Ranges.Units = 'bytes'
    Request.Ranges = <>
    HTTPOptions = [hoForceEncodeParams]
    Left = 572
    Top = 652
  end
  object rxInterfilmes: TRxMemoryData
    FieldDefs = <>
    Left = 576
    Top = 608
    object rxInterfilmesID_FILME: TIntegerField
      FieldName = 'ID_FILME'
    end
    object rxInterfilmesGENERO: TStringField
      FieldName = 'GENERO'
      Size = 30
    end
    object rxInterfilmesTITULO: TStringField
      FieldName = 'TITULO'
      Size = 255
    end
    object rxInterfilmesTITULO_ORIGINAL: TStringField
      FieldName = 'TITULO_ORIGINAL'
      Size = 255
    end
    object rxInterfilmesCLASSIFICACAO: TIntegerField
      FieldName = 'CLASSIFICACAO'
    end
    object rxInterfilmesLANCAMENTO: TIntegerField
      FieldName = 'LANCAMENTO'
    end
    object rxInterfilmesLINK: TStringField
      FieldName = 'LINK'
      Size = 255
    end
  end
  object dsInterfilmes: TDataSource
    DataSet = tbInterfilmes
    Left = 576
    Top = 568
  end
  object IBDatabase: TIBDatabase
    DatabaseName = '127.0.0.1:D:\Programas.Duarte\interfilmes.fdb'
    Params.Strings = (
      'user_name=sysdba'
      'password=masterkey')
    LoginPrompt = False
    DefaultTransaction = IBTransaction
    ServerType = 'IBServer'
    Left = 96
    Top = 592
  end
  object tbInterfilmes: TIBTable
    Database = IBDatabase
    Transaction = IBTransaction
    OnCalcFields = tbInterfilmesCalcFields
    FieldDefs = <
      item
        Name = 'ID_FILME'
        Attributes = [faRequired]
        DataType = ftInteger
      end
      item
        Name = 'GENERO'
        DataType = ftWideString
        Size = 30
      end
      item
        Name = 'TITULO'
        DataType = ftWideString
        Size = 255
      end
      item
        Name = 'TITULO_ORIGINAL'
        DataType = ftWideString
        Size = 255
      end
      item
        Name = 'CLASSIFICACAO'
        DataType = ftInteger
      end
      item
        Name = 'LANCAMENTO'
        DataType = ftInteger
      end
      item
        Name = 'DURACAO'
        DataType = ftSmallint
      end
      item
        Name = 'SINOPSE'
        DataType = ftWideMemo
        Size = 8
      end
      item
        Name = 'CAPA'
        DataType = ftBlob
        Size = 8
      end
      item
        Name = 'MINIATURA'
        DataType = ftBlob
        Size = 8
      end
      item
        Name = 'LINK'
        DataType = ftWideString
        Size = 255
      end>
    IndexDefs = <
      item
        Name = 'PK_FILMES'
        Fields = 'ID_FILME'
        Options = [ixUnique]
      end>
    IndexFieldNames = 'ID_FILME'
    StoreDefs = True
    TableName = 'FILMES'
    Left = 96
    Top = 688
    object tbInterfilmesID_FILME: TIntegerField
      FieldName = 'ID_FILME'
      Required = True
    end
    object tbInterfilmesGENERO: TIBStringField
      FieldName = 'GENERO'
      Size = 30
    end
    object tbInterfilmesTITULO: TIBStringField
      FieldName = 'TITULO'
      Size = 255
    end
    object tbInterfilmesTITULO_ORIGINAL: TIBStringField
      FieldName = 'TITULO_ORIGINAL'
      Size = 255
    end
    object tbInterfilmesCLASSIFICACAO: TIntegerField
      FieldName = 'CLASSIFICACAO'
    end
    object tbInterfilmesLANCAMENTO: TIntegerField
      FieldName = 'LANCAMENTO'
    end
    object tbInterfilmesDURACAO: TSmallintField
      FieldName = 'DURACAO'
    end
    object tbInterfilmesSINOPSE: TWideMemoField
      FieldName = 'SINOPSE'
      BlobType = ftWideMemo
      Size = 8
    end
    object tbInterfilmesCAPA: TBlobField
      FieldName = 'CAPA'
      Size = 8
    end
    object tbInterfilmesMINIATURA: TBlobField
      FieldName = 'MINIATURA'
      Size = 8
    end
    object tbInterfilmesLINK: TIBStringField
      FieldName = 'LINK'
      Size = 255
    end
    object tbInterfilmesSINOPSE_CALC: TStringField
      FieldKind = fkCalculated
      FieldName = 'SINOPSE_CALC'
      Size = 255
      Calculated = True
    end
  end
  object IBTransaction: TIBTransaction
    DefaultDatabase = IBDatabase
    Params.Strings = (
      'read_committed'
      'rec_version'
      'nowait')
    Left = 96
    Top = 640
  end
  object qFilmes: TIBQuery
    Database = IBDatabase
    Transaction = IBTransaction
    SQL.Strings = (
      'select '
      '  ID_FILME'
      'from'
      '  FILMES'
      'where'
      '  ID_FILME = :ID_FILME')
    Left = 160
    Top = 688
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'ID_FILME'
        ParamType = ptUnknown
      end>
  end
end
